AOL File Library: 4,101 to 4,200

home *** CD-ROM | disk | FTP | other *** search

/ AOL File Library: 4,101 to 4,200 / aol-file-protocol-4400-4101-to-4200.zip / AOLDLs / Shareware Demos / TOOTHPIK_ V3.0 Dental Office Mgr / TOTHDEMO.exe / APPONT97.MDX (.txt) < prev next >

Wrap

dBASE Multiple Index | 1997-05-03 | 216KB | 7,513 lines

APPONT97 HOLIDAY N730L N800L N830L N900L N930L N1000L N1030L N1100L N1130L N1200L N1230L N100L N130L N200L N230L N300L N330L N400L N430L N500L N530L N600L A_DATE HOLIDAY HOLIDAY N730L XXXXXXXXX XXXXXXXXX N730L N800L XXXXXXXXX XXXXXXXXX N800L N830L XXXXXXXXX XXXXXXXXX N830L N900L N900L N930L N930L N1000L N1000L N1030L N1030L N1100L N1100L N1130L N1130L N1200L N1200L N1230L N1230L N100L XXXXXXXXX XXXXXXXXX N100L N130L XXXXXXXXX XXXXXXXXX N130L N200L N200L N230L N230L N300L N300L N330L N330L N400L N400L N430L N430L N500L N500L N530L XXXXXXXXX XXXXXXXXX N530L N600L XXXXXXXXX XXXXXXXXX N600L A_DATE A_DATE E ~ E XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX ! XXXXXXXXX " XXXXXXXXX # XXXXXXXXX $ XXXXXXXXX % XXXXXXXXX & XXXXXXXXX ' XXXXXXXXX ( XXXXXXXXX ) XXXXXXXXX * XXXXXXXXX E * XXXXXXXXX , XXXXXXXXX - XXXXXXXXX . XXXXXXXXX / XXXXXXXXX 0 XXXXXXXXX 1 XXXXXXXXX 2 XXXXXXXXX 3 XXXXXXXXX 4 XXXXXXXXX 5 XXXXXXXXX 6 XXXXXXXXX 7 XXXXXXXXX 8 XXXXXXXXX 9 XXXXXXXXX : XXXXXXXXX ; XXXXXXXXX < XXXXXXXXX = XXXXXXXXX > XXXXXXXXX ? XXXXXXXXX @ XXXXXXXXX A XXXXXXXXX B XXXXXXXXX C XXXXXXXXX D XXXXXXXXX E XXXXXXXXX F XXXXXXXXX G XXXXXXXXX H XXXXXXXXX I XXXXXXXXX J XXXXXXXXX K XXXXXXXXX L XXXXXXXXX M XXXXXXXXX N XXXXXXXXX O XXXXXXXXX P XXXXXXXXX Q XXXXXXXXX R XXXXXXXXX S XXXXXXXXX T XXXXXXXXX E * XXXXXXXXX V XXXXXXXXX W XXXXXXXXX X XXXXXXXXX Y XXXXXXXXX Z XXXXXXXXX [ XXXXXXXXX \ XXXXXXXXX ] XXXXXXXXX ^ XXXXXXXXX _ XXXXXXXXX ` XXXXXXXXX a XXXXXXXXX b XXXXXXXXX c XXXXXXXXX d XXXXXXXXX e XXXXXXXXX f XXXXXXXXX g XXXXXXXXX h XXXXXXXXX i XXXXXXXXX j XXXXXXXXX k XXXXXXXXX l XXXXXXXXX m XXXXXXXXX n XXXXXXXXX o XXXXXXXXX p XXXXXXXXX q XXXXXXXXX r XXXXXXXXX s XXXXXXXXX t XXXXXXXXX u XXXXXXXXX v XXXXXXXXX w XXXXXXXXX x XXXXXXXXX y XXXXXXXXX z XXXXXXXXX { XXXXXXXXX | XXXXXXXXX } XXXXXXXXX ~ XXXXXXXXX E * XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX E * XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX E * XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX E XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX > XXXXXXXXX @ XXXXXXXXX B XXXXXXXXX D XXXXXXXXX F XXXXXXXXX H FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX ! XXXXXXXXX " XXXXXXXXX # XXXXXXXXX $ XXXXXXXXX % XXXXXXXXX & XXXXXXXXX ' XXXXXXXXX ( XXXXXXXXX ) XXXXXXXXX * XXXXXXXXX E * XXXXXXXXX , XXXXXXXXX - XXXXXXXXX . XXXXXXXXX / XXXXXXXXX 0 XXXXXXXXX 1 XXXXXXXXX 2 XXXXXXXXX 3 XXXXXXXXX 4 XXXXXXXXX 5 XXXXXXXXX 6 XXXXXXXXX 7 XXXXXXXXX 8 XXXXXXXXX 9 XXXXXXXXX : XXXXXXXXX ; XXXXXXXXX < XXXXXXXXX = XXXXXXXXX > XXXXXXXXX ? XXXXXXXXX @ XXXXXXXXX A XXXXXXXXX B XXXXXXXXX C XXXXXXXXX D XXXXXXXXX E XXXXXXXXX F XXXXXXXXX G XXXXXXXXX H XXXXXXXXX I XXXXXXXXX J XXXXXXXXX K XXXXXXXXX L XXXXXXXXX M XXXXXXXXX N XXXXXXXXX O XXXXXXXXX P XXXXXXXXX Q XXXXXXXXX R XXXXXXXXX S XXXXXXXXX T XXXXXXXXX E * XXXXXXXXX V XXXXXXXXX W XXXXXXXXX X XXXXXXXXX Y XXXXXXXXX Z XXXXXXXXX [ XXXXXXXXX \ XXXXXXXXX ] XXXXXXXXX ^ XXXXXXXXX _ XXXXXXXXX ` XXXXXXXXX a XXXXXXXXX b XXXXXXXXX c XXXXXXXXX d XXXXXXXXX e XXXXXXXXX f XXXXXXXXX g XXXXXXXXX h XXXXXXXXX i XXXXXXXXX j XXXXXXXXX k XXXXXXXXX l XXXXXXXXX m XXXXXXXXX n XXXXXXXXX o XXXXXXXXX p XXXXXXXXX q XXXXXXXXX r XXXXXXXXX s XXXXXXXXX t XXXXXXXXX u XXXXXXXXX v XXXXXXXXX w XXXXXXXXX x XXXXXXXXX y XXXXXXXXX z XXXXXXXXX { XXXXXXXXX | XXXXXXXXX } XXXXXXXXX ~ XXXXXXXXX E * XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX E * XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX E * XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX E XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX N XXXXXXXXX P XXXXXXXXX R XXXXXXXXX T XXXXXXXXX V XXXXXXXXX X FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX ! XXXXXXXXX " XXXXXXXXX # XXXXXXXXX $ XXXXXXXXX % XXXXXXXXX & XXXXXXXXX ' XXXXXXXXX ( XXXXXXXXX ) XXXXXXXXX * XXXXXXXXX E * XXXXXXXXX , XXXXXXXXX - XXXXXXXXX . XXXXXXXXX / XXXXXXXXX 0 XXXXXXXXX 1 XXXXXXXXX 2 XXXXXXXXX 3 XXXXXXXXX 4 XXXXXXXXX 5 XXXXXXXXX 6 XXXXXXXXX 7 XXXXXXXXX 8 XXXXXXXXX 9 XXXXXXXXX : XXXXXXXXX ; XXXXXXXXX < XXXXXXXXX = XXXXXXXXX > XXXXXXXXX ? XXXXXXXXX @ XXXXXXXXX A XXXXXXXXX B XXXXXXXXX C XXXXXXXXX D XXXXXXXXX E XXXXXXXXX F XXXXXXXXX G XXXXXXXXX H XXXXXXXXX I XXXXXXXXX J XXXXXXXXX K XXXXXXXXX L XXXXXXXXX M XXXXXXXXX N XXXXXXXXX O XXXXXXXXX P XXXXXXXXX Q XXXXXXXXX R XXXXXXXXX S XXXXXXXXX T XXXXXXXXX E * XXXXXXXXX V XXXXXXXXX W XXXXXXXXX X XXXXXXXXX Y XXXXXXXXX Z XXXXXXXXX [ XXXXXXXXX \ XXXXXXXXX ] XXXXXXXXX ^ XXXXXXXXX _ XXXXXXXXX ` XXXXXXXXX a XXXXXXXXX b XXXXXXXXX c XXXXXXXXX d XXXXXXXXX e XXXXXXXXX f XXXXXXXXX g XXXXXXXXX h XXXXXXXXX i XXXXXXXXX j XXXXXXXXX k XXXXXXXXX l XXXXXXXXX m XXXXXXXXX n XXXXXXXXX o XXXXXXXXX p XXXXXXXXX q XXXXXXXXX r XXXXXXXXX s XXXXXXXXX t XXXXXXXXX u XXXXXXXXX v XXXXXXXXX w XXXXXXXXX x XXXXXXXXX y XXXXXXXXX z XXXXXXXXX { XXXXXXXXX | XXXXXXXXX } XXXXXXXXX ~ XXXXXXXXX E * XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX E * XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX E * XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX E XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX ^ XXXXXXXXX ` XXXXXXXXX b XXXXXXXXX d XXXXXXXXX f XXXXXXXXX h FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg ! " # $ % & ' ( ) * E * , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T E * V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ E * E * E * E n p r t v x FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg ! " # $ % & ' ( ) * E * , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T E * V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ E * E * E * E ~ FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg ! " # $ % & ' ( ) * E * , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T E * V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ E * E * E * E FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg ! " # $ % & ' ( ) * E * , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T E * V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ E * E * E * E FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg ! " # $ % & ' ( ) * E * , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T E * V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ E * E * E * E FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg ! " # $ % & ' ( ) * E * , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T E * V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ E * E * E * E FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg ! " # $ % & ' ( ) * E * , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T E * V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ E * E * E * E FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg ! " # $ % & ' ( ) * E * , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T E * V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ E * E * E * E FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX ! XXXXXXXXX " XXXXXXXXX # XXXXXXXXX $ XXXXXXXXX % XXXXXXXXX & XXXXXXXXX ' XXXXXXXXX ( XXXXXXXXX ) XXXXXXXXX * XXXXXXXXX E * XXXXXXXXX , XXXXXXXXX - XXXXXXXXX . XXXXXXXXX / XXXXXXXXX 0 XXXXXXXXX 1 XXXXXXXXX 2 XXXXXXXXX 3 XXXXXXXXX 4 XXXXXXXXX 5 XXXXXXXXX 6 XXXXXXXXX 7 XXXXXXXXX 8 XXXXXXXXX 9 XXXXXXXXX : XXXXXXXXX ; XXXXXXXXX < XXXXXXXXX = XXXXXXXXX > XXXXXXXXX ? XXXXXXXXX @ XXXXXXXXX A XXXXXXXXX B XXXXXXXXX C XXXXXXXXX D XXXXXXXXX E XXXXXXXXX F XXXXXXXXX G XXXXXXXXX H XXXXXXXXX I XXXXXXXXX J XXXXXXXXX K XXXXXXXXX L XXXXXXXXX M XXXXXXXXX N XXXXXXXXX O XXXXXXXXX P XXXXXXXXX Q XXXXXXXXX R XXXXXXXXX S XXXXXXXXX T XXXXXXXXX E * XXXXXXXXX V XXXXXXXXX W XXXXXXXXX X XXXXXXXXX Y XXXXXXXXX Z XXXXXXXXX [ XXXXXXXXX \ XXXXXXXXX ] XXXXXXXXX ^ XXXXXXXXX _ XXXXXXXXX ` XXXXXXXXX a XXXXXXXXX b XXXXXXXXX c XXXXXXXXX d XXXXXXXXX e XXXXXXXXX f XXXXXXXXX g XXXXXXXXX h XXXXXXXXX i XXXXXXXXX j XXXXXXXXX k XXXXXXXXX l XXXXXXXXX m XXXXXXXXX n XXXXXXXXX o XXXXXXXXX p XXXXXXXXX q XXXXXXXXX r XXXXXXXXX s XXXXXXXXX t XXXXXXXXX u XXXXXXXXX v XXXXXXXXX w XXXXXXXXX x XXXXXXXXX y XXXXXXXXX z XXXXXXXXX { XXXXXXXXX | XXXXXXXXX } XXXXXXXXX ~ XXXXXXXXX E * XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX E * XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX E * XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX E XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX ! XXXXXXXXX " XXXXXXXXX # XXXXXXXXX $ XXXXXXXXX % XXXXXXXXX & XXXXXXXXX ' XXXXXXXXX ( XXXXXXXXX ) XXXXXXXXX * XXXXXXXXX E * XXXXXXXXX , XXXXXXXXX - XXXXXXXXX . XXXXXXXXX / XXXXXXXXX 0 XXXXXXXXX 1 XXXXXXXXX 2 XXXXXXXXX 3 XXXXXXXXX 4 XXXXXXXXX 5 XXXXXXXXX 6 XXXXXXXXX 7 XXXXXXXXX 8 XXXXXXXXX 9 XXXXXXXXX : XXXXXXXXX ; XXXXXXXXX < XXXXXXXXX = XXXXXXXXX > XXXXXXXXX ? XXXXXXXXX @ XXXXXXXXX A XXXXXXXXX B XXXXXXXXX C XXXXXXXXX D XXXXXXXXX E XXXXXXXXX F XXXXXXXXX G XXXXXXXXX H XXXXXXXXX I XXXXXXXXX J XXXXXXXXX K XXXXXXXXX L XXXXXXXXX M XXXXXXXXX N XXXXXXXXX O XXXXXXXXX P XXXXXXXXX Q XXXXXXXXX R XXXXXXXXX S XXXXXXXXX T XXXXXXXXX E * XXXXXXXXX V XXXXXXXXX W XXXXXXXXX X XXXXXXXXX Y XXXXXXXXX Z XXXXXXXXX [ XXXXXXXXX \ XXXXXXXXX ] XXXXXXXXX ^ XXXXXXXXX _ XXXXXXXXX ` XXXXXXXXX a XXXXXXXXX b XXXXXXXXX c XXXXXXXXX d XXXXXXXXX e XXXXXXXXX f XXXXXXXXX g XXXXXXXXX h XXXXXXXXX i XXXXXXXXX j XXXXXXXXX k XXXXXXXXX l XXXXXXXXX m XXXXXXXXX n XXXXXXXXX o XXXXXXXXX p XXXXXXXXX q XXXXXXXXX r XXXXXXXXX s XXXXXXXXX t XXXXXXXXX u XXXXXXXXX v XXXXXXXXX w XXXXXXXXX x XXXXXXXXX y XXXXXXXXX z XXXXXXXXX { XXXXXXXXX | XXXXXXXXX } XXXXXXXXX ~ XXXXXXXXX E * XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX E * XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX E * XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX E XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg ! " # $ % & ' ( ) * E * , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T E * V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ E * E * E * E FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg ! " # $ % & ' ( ) * E * , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T E * V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ E * E * E * E " $ & ( FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg ! " # $ % & ' ( ) * E * , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T E * V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ E * E * E * E . 0 2 4 6 8 FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg ! " # $ % & ' ( ) * E * , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T E * V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ E * E * E * E > @ B D F H FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg ! " # $ % & ' ( ) * E * , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T E * V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ E * E * E * E N P R T V X FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg ! " # $ % & ' ( ) * E * , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T E * V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ E * E * E * E ^ ` b d f h FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg ! " # $ % & ' ( ) * E * , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T E * V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ E * E * E * E n p r t v x FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX ! XXXXXXXXX " XXXXXXXXX # XXXXXXXXX $ XXXXXXXXX % XXXXXXXXX & XXXXXXXXX ' XXXXXXXXX ( XXXXXXXXX ) XXXXXXXXX * XXXXXXXXX E * XXXXXXXXX , XXXXXXXXX - XXXXXXXXX . XXXXXXXXX / XXXXXXXXX 0 XXXXXXXXX 1 XXXXXXXXX 2 XXXXXXXXX 3 XXXXXXXXX 4 XXXXXXXXX 5 XXXXXXXXX 6 XXXXXXXXX 7 XXXXXXXXX 8 XXXXXXXXX 9 XXXXXXXXX : XXXXXXXXX ; XXXXXXXXX < XXXXXXXXX = XXXXXXXXX > XXXXXXXXX ? XXXXXXXXX @ XXXXXXXXX A XXXXXXXXX B XXXXXXXXX C XXXXXXXXX D XXXXXXXXX E XXXXXXXXX F XXXXXXXXX G XXXXXXXXX H XXXXXXXXX I XXXXXXXXX J XXXXXXXXX K XXXXXXXXX L XXXXXXXXX M XXXXXXXXX N XXXXXXXXX O XXXXXXXXX P XXXXXXXXX Q XXXXXXXXX R XXXXXXXXX S XXXXXXXXX T XXXXXXXXX E * XXXXXXXXX V XXXXXXXXX W XXXXXXXXX X XXXXXXXXX Y XXXXXXXXX Z XXXXXXXXX [ XXXXXXXXX \ XXXXXXXXX ] XXXXXXXXX ^ XXXXXXXXX _ XXXXXXXXX ` XXXXXXXXX a XXXXXXXXX b XXXXXXXXX c XXXXXXXXX d XXXXXXXXX e XXXXXXXXX f XXXXXXXXX g XXXXXXXXX h XXXXXXXXX i XXXXXXXXX j XXXXXXXXX k XXXXXXXXX l XXXXXXXXX m XXXXXXXXX n XXXXXXXXX o XXXXXXXXX p XXXXXXXXX q XXXXXXXXX r XXXXXXXXX s XXXXXXXXX t XXXXXXXXX u XXXXXXXXX v XXXXXXXXX w XXXXXXXXX x XXXXXXXXX y XXXXXXXXX z XXXXXXXXX { XXXXXXXXX | XXXXXXXXX } XXXXXXXXX ~ XXXXXXXXX E * XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX E * XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX E * XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX E XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX ~ XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX ! XXXXXXXXX " XXXXXXXXX # XXXXXXXXX $ XXXXXXXXX % XXXXXXXXX & XXXXXXXXX ' XXXXXXXXX ( XXXXXXXXX ) XXXXXXXXX * XXXXXXXXX E * XXXXXXXXX , XXXXXXXXX - XXXXXXXXX . XXXXXXXXX / XXXXXXXXX 0 XXXXXXXXX 1 XXXXXXXXX 2 XXXXXXXXX 3 XXXXXXXXX 4 XXXXXXXXX 5 XXXXXXXXX 6 XXXXXXXXX 7 XXXXXXXXX 8 XXXXXXXXX 9 XXXXXXXXX : XXXXXXXXX ; XXXXXXXXX < XXXXXXXXX = XXXXXXXXX > XXXXXXXXX ? XXXXXXXXX @ XXXXXXXXX A XXXXXXXXX B XXXXXXXXX C XXXXXXXXX D XXXXXXXXX E XXXXXXXXX F XXXXXXXXX G XXXXXXXXX H XXXXXXXXX I XXXXXXXXX J XXXXXXXXX K XXXXXXXXX L XXXXXXXXX M XXXXXXXXX N XXXXXXXXX O XXXXXXXXX P XXXXXXXXX Q XXXXXXXXX R XXXXXXXXX S XXXXXXXXX T XXXXXXXXX E * XXXXXXXXX V XXXXXXXXX W XXXXXXXXX X XXXXXXXXX Y XXXXXXXXX Z XXXXXXXXX [ XXXXXXXXX \ XXXXXXXXX ] XXXXXXXXX ^ XXXXXXXXX _ XXXXXXXXX ` XXXXXXXXX a XXXXXXXXX b XXXXXXXXX c XXXXXXXXX d XXXXXXXXX e XXXXXXXXX f XXXXXXXXX g XXXXXXXXX h XXXXXXXXX i XXXXXXXXX j XXXXXXXXX k XXXXXXXXX l XXXXXXXXX m XXXXXXXXX n XXXXXXXXX o XXXXXXXXX p XXXXXXXXX q XXXXXXXXX r XXXXXXXXX s XXXXXXXXX t XXXXXXXXX u XXXXXXXXX v XXXXXXXXX w XXXXXXXXX x XXXXXXXXX y XXXXXXXXX z XXXXXXXXX { XXXXXXXXX | XXXXXXXXX } XXXXXXXXX ~ XXXXXXXXX E * XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX E * XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX E * XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX E XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg E T E T E XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg